home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_ah.inc < prev    next >
Text File  |  1998-07-25  |  3KB  |  221 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ò\Ī
  4. *
  5. *    ï¡ìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. high_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subq.w    #8,d1
  17.     subi.w    #16,d2
  18.     addi.w    #$0025,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     rts
  47. @@:
  48.     subi.w    #24,d1
  49.     subi.w    #16,d2
  50.     addi.w    #$4026,d7
  51.     move.w    d1,(a6)+
  52.     move.w    d2,(a6)+
  53.     move.w    d7,(a6)+
  54.     move.w    #$0003,(a6)+
  55.  
  56.     addi.w    #16,d1
  57.     subq.w    #1,d7
  58.     move.w    d1,(a6)+
  59.     move.w    d2,(a6)+
  60.     move.w    d7,(a6)+
  61.     move.w    #$0003,(a6)+
  62.  
  63.     subi.w    #16,d1
  64.     addi.w    #16,d2
  65.     addq.w    #3,d7
  66.     move.w    d1,(a6)+
  67.     move.w    d2,(a6)+
  68.     move.w    d7,(a6)+
  69.     move.w    #$0003,(a6)+
  70.  
  71.     addi.w    #16,d1
  72.     subq.w    #1,d7
  73.     move.w    d1,(a6)+
  74.     move.w    d2,(a6)+
  75.     move.w    d7,(a6)+
  76.     move.w    #$0003,(a6)+
  77.  
  78.     rts
  79.  
  80. *---------------------------------------
  81. high_a:
  82.     move.w    C_X(a1),d1
  83.     move.w    C_Y(a1),d2
  84.     tst.w    C_LR_F(a1)
  85.     bne    @f
  86.  
  87.     subq.w    #8,d1
  88.     subi.w    #16,d2
  89.     addi.w    #$0029,d7
  90.     move.w    d1,(a6)+
  91.     move.w    d2,(a6)+
  92.     move.w    d7,(a6)+
  93.     move.w    #$0003,(a6)+
  94.  
  95.     addi.w    #16,d1
  96.     addq.w    #1,d7
  97.     move.w    d1,(a6)+
  98.     move.w    d2,(a6)+
  99.     move.w    d7,(a6)+
  100.     move.w    #$0003,(a6)+
  101.  
  102.     subi.w    #16,d1
  103.     addi.w    #16,d2
  104.     addq.w    #1,d7
  105.     move.w    d1,(a6)+
  106.     move.w    d2,(a6)+
  107.     move.w    d7,(a6)+
  108.     move.w    #$0003,(a6)+
  109.  
  110.     addi.w    #16,d1
  111.     addq.w    #1,d7
  112.     move.w    d1,(a6)+
  113.     move.w    d2,(a6)+
  114.     move.w    d7,(a6)+
  115.     move.w    #$0003,(a6)+
  116.  
  117.     rts
  118. @@:
  119.     subi.w    #24,d1
  120.     subi.w    #16,d2
  121.     addi.w    #$402a,d7
  122.     move.w    d1,(a6)+
  123.     move.w    d2,(a6)+
  124.     move.w    d7,(a6)+
  125.     move.w    #$0003,(a6)+
  126.  
  127.     addi.w    #16,d1
  128.     subq.w    #1,d7
  129.     move.w    d1,(a6)+
  130.     move.w    d2,(a6)+
  131.     move.w    d7,(a6)+
  132.     move.w    #$0003,(a6)+
  133.  
  134.     subi.w    #16,d1
  135.     addi.w    #16,d2
  136.     addq.w    #3,d7
  137.     move.w    d1,(a6)+
  138.     move.w    d2,(a6)+
  139.     move.w    d7,(a6)+
  140.     move.w    #$0003,(a6)+
  141.  
  142.     addi.w    #16,d1
  143.     subq.w    #1,d7
  144.     move.w    d1,(a6)+
  145.     move.w    d2,(a6)+
  146.     move.w    d7,(a6)+
  147.     move.w    #$0003,(a6)+
  148.  
  149.     rts
  150. *---------------------------------------
  151. high_t:
  152.     move.w    C_X(a1),d1
  153.     move.w    C_Y(a1),d2
  154.     tst.w    C_LR_F(a1)
  155.     bne    @f
  156.  
  157.     subq.w    #8,d1
  158.     subi.w    #16,d2
  159.     addi.w    #$002d,d7
  160.     move.w    d1,(a6)+
  161.     move.w    d2,(a6)+
  162.     move.w    d7,(a6)+
  163.     move.w    #$0003,(a6)+
  164.  
  165.     addi.w    #16,d1
  166.     addq.w    #1,d7
  167.     move.w    d1,(a6)+
  168.     move.w    d2,(a6)+
  169.     move.w    d7,(a6)+
  170.     move.w    #$0003,(a6)+
  171.  
  172.     subi.w    #16,d1
  173.     addi.w    #16,d2
  174.     addq.w    #1,d7
  175.     move.w    d1,(a6)+
  176.     move.w    d2,(a6)+
  177.     move.w    d7,(a6)+
  178.     move.w    #$0003,(a6)+
  179.  
  180.     addi.w    #16,d1
  181.     addq.w    #1,d7
  182.     move.w    d1,(a6)+
  183.     move.w    d2,(a6)+
  184.     move.w    d7,(a6)+
  185.     move.w    #$0003,(a6)+
  186.  
  187.     rts
  188. @@:
  189.     subi.w    #24,d1
  190.     subi.w    #16,d2
  191.     addi.w    #$402e,d7
  192.     move.w    d1,(a6)+
  193.     move.w    d2,(a6)+
  194.     move.w    d7,(a6)+
  195.     move.w    #$0003,(a6)+
  196.  
  197.     addi.w    #16,d1
  198.     subq.w    #1,d7
  199.     move.w    d1,(a6)+
  200.     move.w    d2,(a6)+
  201.     move.w    d7,(a6)+
  202.     move.w    #$0003,(a6)+
  203.  
  204.     subi.w    #16,d1
  205.     addi.w    #16,d2
  206.     addq.w    #3,d7
  207.     move.w    d1,(a6)+
  208.     move.w    d2,(a6)+
  209.     move.w    d7,(a6)+
  210.     move.w    #$0003,(a6)+
  211.  
  212.     addi.w    #16,d1
  213.     subq.w    #1,d7
  214.     move.w    d1,(a6)+
  215.     move.w    d2,(a6)+
  216.     move.w    d7,(a6)+
  217.     move.w    #$0003,(a6)+
  218.  
  219.     rts
  220. *---------------------------------------
  221.